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A  Simple  Example  of  an  SADMT  Architecture  Specification 


1.  Introduction 

In  this  paper,  a  complete  specification  of  a  simple  SDI  Architecture.  SDSO  (pronounced 
SDS  naught),  and  threat  is  given.  This  specification  includes: 

(1)  an  informal  description  of  SDSO, 

(2)  the  main  program  that  creates  the  components  of  the  simulation, 

(3)  the  specification  of  the  BM/C3  logical  processes  of  the  SDSO, 

(4)  the  specification  of  the  Technology  Modules  (TMs)  used  by  SDSO, 

(5)  the  specification  of  the  BM/C3  and  TMs  of  the  threat. 

This  example  illustrates  the  manner  in  which  an  SDS  architecture  can  be  described  in  SADMT. 
The  entire  architecture,  BM/C3  and  TMs,  is  described  in  SAGEN  and  was  translated  by  the 
SAGEN  processor  into  SADMT  before  being  executed. 

2.  Informal  Specification 
Components 

This  sample  architecture  contains  the  following  components: 

Two  command  posts 

Four  sensor  platforms  in  geosynchronous  orbit 
n  weapons  platforms  in  low  orbit 

These  components  send  (through  SADMT  ports)  the  following  kinds  of  messages  to  each  other: 

(1)  Command  post  to  all  satellites:  the  current  status. 

(2)  Sensor  platforms  to  all  components:  target  detection  information 

(3)  Sensor  platforms  to  all  components:  summaries  of  target  information  messages  received 
from  other  sensor  platforms. 

The  system  is  always  in  one  of  two  status  levels:  war  or  peace,  and  the  system  is  initially  at  peace. 

Processing 

The  following  is  an  outline  of  the  processing  that  takes  place  within  this  system.  A  com¬ 
mand  post  receives  target  information  continuously  from  the  sensor  satellites.  It  broadcasts  a 
status  message  (war  or  peace)  to  all  satellites  every  ten  minutes.  When  it  first  receives  a  message 
indicating  that  targets  have  been  detected,  it  changes  status  from  peace  to  war  and  broadcasts 
that  new  status  immediately.  If  at  war,  and  no  targets  are  detected  for  over  one  hour,  the  status  is 
changed  back  to  peace. 

A  sensor  scans  a  designated  area  an  reports  all  detected  targets  to  all  satellites  and  com¬ 
mand  posts.  In  addition,  it  rebroadcasts  a  summary  of  any  message  it  receives  from  a  sensor 
platform  with  a  higher  ID  than  its  own.  (The  senor  platforms  are  ordered  1  through  4.) 

A  full  sensor  message  contains  the  ID  of  the  sensor  sending  it,  the  number  of  targets 
detected,  and  a  list  of  information  about  the  targets  (including  the  current  position  and  velocity 
of  each  target).  A  relayed  summary  message  contains  only  the  ID  of  the  sensor  platform  that  is 
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relaying  it,  and  the  number  of  targets  detected. 

A  weapons  platform  receives  all  messages  transmitted  by  the  command  posts  and  sensor 
platforms.  It  processes  the  status  messages  from  the  command  posts,  and  as  long  as  the  status 
remains  at  peace  it  does  not  care  about  the  contents  of  any  message  form  the  sensors.  Neverthe¬ 
less,  after  the  weapons  platform  receives  a  message  changing  the  status  to  war,  it  processes  all 
messages  that  come  directly  from  a  sensor  platform  (i.e.,  those  that  contain  the  complete  target 
information,  not  the  relayed  summaries). 

For  each  sensor  message  processed,  the  weapons  platform  calculates  the  target  with  the 
highest  probability  of  kill  (Pk).  If  that  Pk  is  higher  that  some  minimum,  it  aims  and  shoots  at  that 
target. 

The  weapon  fired  is  a  dumb  KKV  that  travels  in  the  direction  it  is  fired  at  a  constant  velo¬ 
city  of  5  km/sec.  The  weapons  platform  does  not  bother  to  count  its  remaining  KKVs;  it  keep 
on  playing  the  game  even  after  it  has  exhausted  its  supply. 

3.  MAIN 

The  following  code  is  the  main  program  for  the  SADMT/SF  simulation  of  SDSO.  This 
program  creates  the  initial  configuration  of  platform  and  starts  the  simulation. 

with  SystemJScheduler, 

Cones_n_PIatforms, 

Latitude_nJLongitude , 

Sensor_Cone_Response_TM_pkg, 

Tracker_TM_pkg, 

PIatfonn_CoUision_TM_pkg, 

Russian_Missile_BaseJPlatform_pkg, 

Conunand_Post_pkg, 

Sensor_Platform_pkg, 

Weapons  JPlatform_pkg , 

Math, 

Vector_pkg, 

DebugjSagS, 

verdix; 


procedure  main_sdsO  is 

package  PDUJO  renames  Cones_n_Platforms.PDL_pkg.PDU_JO; 
package  CnP_IP  renames  Cones_n_Platforms.interface_procs; 
use  PDUJO;  use  txt_jo,  int_io; 
use  Cones_n_Platforms, 

SystemJScheduler, 

Vector_pkg, 

Cones_n_Platforms.eqn_motion_pkg, 

Latitude_n_Longitude, 

Russian_Missile_BaseJPlatform_pkg , 

Command_Post_pkg, 

Sensor_Platform_pkg , 

Weapons  JPlatform_pkg, 

Math; 

use  PDL_pkg; 

use  Command_Post_PARAM_pkg; 
use  Sensor_Platform_PARAM_pkg; 
use  Weapons_Platform_PARAM_pkg; 

num_sensor_platforms:  constant:  -  4; 

SECONDS:  constant:  -  PDL_ticks_per_second; 
minutes:  constant:  -  60  *  seconds; 
hour:  constant:  -  60  *  minutes; 

missile_base_eom:  eqn_motion_type:-  new_eqn_motion_rec; 
postl_eom:  eqn_motion_type:-  new_eqn_motion_rec; 
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postl_param:  Command_Post_parameterization_ptr:- 
new  Command_post_parameterization; 
post2_eom:  eqn_motion_type :  -  new_eqn_motioni_rec; 
post2_param:  Command_Post_parameterization_ptr:  - 
new  Command_Post_parameterization; 
sensor_eom:  eqn_motion_type; 

sensor_param:  Sensor_Platform_parametemation_ptr; 
sensor_discr:  PDU_string_ptr; 
weapon_eom:  eqn_motion_type; 

weapon_param:  Weapons_Platform_parameterization_ptr; 

sensor_radius:  constant:  -  Re  *3.875; 

weapoojradius:  constant:-  Re*  1.125; 

weapon_discr:  PDL_string_ptr; 

theta:  float; 

platform_pos:  vector; 

begin 

put_line(”The  SDSO  simulation:'’); 

CnP_iP.platforms_cant_colhde(Russiafl_Missile_Base_Platform_designator, 
Russian_Missile_Base_Platform_designator) ; 
CnP_ip.platforms_cant_collide(Russian_Missile_Base_Platform_designator, 
Command_Post_designator) ; 

CnP_rp.platform3_cant_colIide(Command_Post_designator) 

Command_Post_designator); 

CnP_iP.platforms_cant_collide(Sensor_Platform_designator, 

Sensor_Platf  orm_designat  or) ; 

CnP_lP.platforms_cant_collide(RussianL_Missile_Base_Platfonn_designator, 
Weapons_Platform_designator) ; 

put_line(”  Creating  Russian  Missile  Base  at  ”  & 

"(55.8  degrees  E,  37.9  degrees  N).”); 
missile_base_eom. position:-  location(37.9,  55.8); 
missile_base_eom  .delta^t:-  max_PDU_duration ; 
missile_base_eom.back_ptr_flag :  -  true; 
missile_base_eom .  next_rec :  -  missile_base_eom ; 
Russian_Missile_Base_Platform_CP_pkg.create_platfonn( 
Russian_Missile_Base_Platform_designator, 
name->  Russian_Missile_Base_Platform_name, 
initial_position->  location(37.9, 55.8), 
eqn_motion->  missile_base_eom); 
put_line(“  Creating  Command  Post  1  at  ”  & 

”(255.0  degrees  E,  37.5  degrees  N).”); 
postl_param.CP_id:-  "CPost  1”; 
postl_eom.position:-  location(37.5, 255.0); 
postl_eom.delta_t:  -  max_PD  L_d  urat  io  n ; 
postl_eom.back_ptr_flag:-  true; 
postl_eom.next_rec:-  postl_eom; 

Command —Post_CP_pkg.create_platform(Command_Post_designator, 
name->  Command_Post_name, 
discr->  PDL_string_ptr’( 

new  string’("l")), 

par  am  ->  postl_param, 

initial_position->  location(37.5, 

255.0), 

eqn_motion->  postl_eom); 
putjine("  Creating  Command  Post  2  at "  & 

”(270.0  degrees  E,  37.5  degrees  N)."); 
post2_param.cp_id:-  "CPost  2”; 
post2_eom.  position:-  location(37.5, 270.0); 
post2_eom.delta_t:-  max_PDL_duration; 
post2_eom.back_ptr_flag:-  true; 
post2_eom.next_rec:-  post2_eom; 

Comraand_Post_CP_pkg.create_platform(Command_Post_designator, 
name->  Command_Post_name, 
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discr->  PDL_string_ptr’( 

new  string’(”2”)), 

par  am  ->  post2_param, 

initial  prnition->  location(37.5, 

270.0), 

eqn_motion->  post2_eom); 

put(”Creating  "); 
put(num_sensor_platforms,l); 
put(”  Sensor  Platforms  ”); 
for  ij  in  1--num  sensor  platforms  loop 
sensor_eom:-  new_eqn_motion_rec; 
theta:-  Boat(ij  - 1)  *  2.0  *  pi  /  float(num_sensor_platforms); 
platform_pos.x:-  cos(theta)  *  sensor_radius; 
pIatform_pos.y:-  sin(theta)  *  sensor_radius; 
platform_pos.z:-  0.0; 
sensor_eom.position:-  platform_pos; 
sensor_eom.delta_t:-  max_PDU_duration; 
sensor_eom.back_ptr.Jiag:-  true; 
sensor_eom.next_rec:-  sensor.eom; 
sensor_param:-  new  Sensor_Platfonn_parameterization; 
sensor_param.SP_id:-  "Sensor 
put(sensor_param.spJd(7.  .7),ij); 
sensor_discr:-  new  string’(integer’image(ij)); 

Sensor JPlatform_CP_pkg.create_platform(Sensor_Platform_designator, 
name->  Sensor_Platform_name, 
discr->  sensor_discr, 
par  am  ->  sensor_param, 
initial_position->  platform_pos, 
eqn_motion->  sensor_eom); 

put(’.’); 

end  loop; 
newjine; 
put(”Creating  ”); 

piit(T)ebugJFlags.nuin_weapons_platforins,lV, 
put(”  Weapons  Platforms  ”); 

for  ij  in  l..DebugJFlags.num_weapons_platforms  loop 
weapon_eom : -  new_eqn_motion_rec; 
theta:-  float(ij  -  1)  *  2.0  •  pi  /  float( 

Debug_Flags.num_weapons_platforms); 
platform_pos.x:-  cos(theta)  *  weapon_radius ; 
platform_pos.v:-  sin(theta)  *  weaponuradius ; 
platform_pos.z:-  0.0; 
weapon_eom.position:-  platform_pos; 
weapon_eom.delta_t:-  max_PDU_duration; 
weapon_eom.back_ptr_flag:-  true; 
weapon_eom.next_rec:-  weapon_eom; 
weapon_param : -  new  Weapons_Platform_parameterization; 
weapon_param.wp_id:- ”WP  ”; 
put(weapon_param.  WP_id(3.  .7),ij); 
weapon_discr:-  new  string’(integer’image(ij)); 

Weapons  _Platform_CP_pkg.create_platform(Weapons_Platform_designator, 
par  am  ->  weapon_param, 
name  ->  Weapons_Platform_name, 
discr  ->  weapon_discr, 
initial_position->  platform_pos, 
eqn_motion->  weapon_eom); 

put(’.’); 

end  loop; 
newjine; 

putJine(”simulation  begins . ”); 

start_simulation(PDL_time_type(HOUR)); 

end; 
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4.  Message  and  Port  types 

The  message  and  port  types  represent  the  data  that  is  transferred  between  processes  via 
SADMT  ports  and  the  data  that  is  communicated  between  platforms  via  SADMT  cones. 
SADMT  defines  three  message  types,  and  these  correspond  to  the  three  types  of  outports  of  the 
PIG.  All  three  types  are  available  to  the  SADMT  user  via  the  Cones^n^Platforms  package. 
Nevertheless,  three  packages  which  conform  to  the  SAGEN  naming  conventions  are  provided. 
The  renamed  types  are  in  the  following  packages: 


Renamings  of  SADMT  Packages 


with  Cones_n_Platfonns; 
package  Cone_Msg_pkg  ii 

package  wp_EMp  renames  Cones_nJ>latforms.Environ_Msg_pkg; 

tub  type  Cone_Msg  U  wp_EMp.Cone_Msg; 

package  pd  rename*  wpJEMp .  PDcone ; 

subtype  Cone_Msg_port  Is  PD.T_port; 
subtype  Cone_MsgJpptr  Is  PD.Tjpptr; 
subtype  Conse_Msg_opptr  is  PD.T_opptr; 

end  Ccae_Msg_pkg; 
with  Cones_n_Platforms; 

package  Event_Msg_pkg  Is 

package  wp_EMp  renames  Cones_n_Platforms.Environ_M»g_pkg; 

subtype  Event_Msg  Is  wpJEMp. Event_Msg; 

function  end_o£_eqn_motion  return  Event_Msg 
renames  wpJEMp. end_of_eqn_jnotion; 
function  end_o£Jifetime  return  EventJMsg 
renames  wpJEMp. eiuLoUifetime; 
function  ”-"(l,r:EventJvlsg)  return  Boolean  renames  wpJEMp.’’-”; 

package  pd  renames  wpJEMp. PDevent; 

subtype  Event_Msg_port  is  PD.T_port; 
subtype  Event-Msgjpptr  is  PD.Tjpptr; 
subtype  EventJvtsg_opptr  Is  PD.T_opptr; 

end  Event  Jvfsg_pkg; 
with  Conej_nJ>latforms; 

package  Platform_Msg_pkg  is 

package  wp_EMp  renames  Cones_nJ>latforms.Environ_Msg_pkg; 

subtype  Platfonn_Msg  Is  wp_EMp.PlatformJvlsg; 

package  PD  renames  wpJEMp. PDplat; 

subtype  Platform_Msg_port  Is  PD.T_port; 
subtype  Platform_MsgJpptr  is  PD.Tjpptr; 
subtype  Platform_Msg_opptr  Is  PD.r_opptr; 

end  PlatformJVtsg_pkg; 
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The  boolean  type  is  used  by  the  Timer  process  of  the  command  post  as  an  aiarm  signal,  and 
the  time  type  is  used  to  set  the  Timer  process’s  alarm  clock.  The  two  Ada  packages  that  define 
the  boolean  and  time  message  types  and  port  types  are  given  below 


BOOLEAN  JPKG 


with  PortDefiner_pkg,  Cones_n_Platfonns; 
uac  Cones_n_J>latfonns; 
package  Boolean_pkg  Is 


type  Boolean_ptx  Is  access  Boolean; 

Boolean_debug_class:  string(1..7):-  "Boolean”; 
procedure  put_msg(m'.  Boolean;  indenf.integer.-35); 
package  PD  is 

new  PortDefiner_pkg  ( 

Boolean, 

pufjmsg, 

"BOOLEAN", 

Boolean_debug_cl  ass) ; 

subtype  Boolean_port  is  PD.T_pott; 
subtype  Boolean_ipptr  is  PD.r_ipptr; 
subtype  Boolean_opptr  is  PD.T_opptr; 

end  Booleaiupkg; 
package  body  Booleaa-pkg  is 
procedure  put_msg(m:Boolean;indent:integer:-35)  Is 
use  PDL_pkg.PDUjo;  use  TXT_jo; 

begin 

fori  in  1.. indent  loop 
put(’  ); 

end  loop; 

put(”BOOLEAN-  "); 
if  m  then  put(”TRUE”) ; 
else  put("FALSE”); 
end  ir; 
newjine; 
end  put_msg; 
end  Booleait_pkg; 


TIMEJPKG  • 


with  PortDe6ner_pkg,  Cones_n_Platforms; 
use  Cones_n_P!atforms; 
package  Time.pkg  is 

subtype  Time  is  PDL_pkg  .PDL_duration_type; 

type  Time_ptr  Is  access  Time; 

Time_debug_class:  string(1..4):-  "Time”; 
procedure  put_msg(m:Time;indent integer: -35); 

package  PO  Is 

new  PortDefiner_pkg(Time,put_msg,”TlME”,Time_debug_class); 

subtype  Time_port  is  PD.r_port; 
subtype  Time_opptr  is  PD.T_opptr; 


UNCLASSIFIED 


UNCLASSIFIED 


■ubtypc  Time_jpptr  U  PD.T_ipptr; 

endTime_pkg; 
package  body  Time_pkg  ia 
procedure  put_msg(m:Time;indent:  integer: -35)  is 
use  PDL_pkg.PDLJo;  use  txt_io,  duration_io; 

begin 

for  i  In  1.. indent  loop 
putC’); 
end  loop; 
put("Time-  ”); 
put(m); 
newjine; 
end  put_msg; 
end  Time_pkg; 


Next  we  define  an  order  as  an  enumerated  type  representing  the  defcon  levels  that  a  ground 
station  can  broadcast  to  the  platforms.  The  enumeration  is  ( DEFCON  1 ,  DEFCON2,  DEF- 
C0N3,  DEFC0N4,  DEFC0N5,  DEFCON6,  DEFC0N7).  Also  defined,  in  a  separate  package, 
is  the  type  order_ptr.  The  ConeDefiner_pkg  package  is  instantiated  with  the  order  and  order_ptr 
types  since  orders  are  transmitted  via  SADMT  cones.  The  definitions  of  order  and  order_ptr  are 
separated  to  conform  with  the  naming  conventions  of  SAGEN.  The  packages  Order_pkg  and 
Order_ptr_pkg  are  given  below: 


ORDERJPKG 


with  PortDefiner_pkg, 

Cones_n_Platforms ; 
package  Order_pkg  is 
use  Cones_n_JMatforms; 

type  Defense_status  1s  (defconI,  defcon2,  defcon3,  defcon4, 

DEFCON5,  DEFCON6,  DEFCON7); 

type  Order  Is 
record 

Initiator:  string  (1.. 7):-  ” - 

order:  Defense_status; 

end  record; 

Order_debug_class:  string(1..5):-  "ORDER”; 
procedure  put_msg( 
m:  Order; 

indent :  integer :  -  20) ; 

package  PD  is  new  PortDe6ner_pkg(Order,put_msg,Order_debug_class); 
package  Defense_status_]0  is 

newPDL_pkg.PDL_io.TXT_io.ENUMERxnoN_io(Defense_status); 
subtype  Order_port  is  PD.T_port; 
subtype  Order  Jpptr  is  PD.T_ipptr; 
subtype  Order_opptr  is  PD.T_opptr; 

end  Order_pkg; 

package  body  Order_pkg  is 
procedure  put_msg( 
m:  Order; 

indent:integer:-20)  is 
use  PDL_pkg.PDLjo;  use  txt_jo; 
use  Defense_status_lo; 

begin 

for  i  in  1.  .indent  loop 
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putC  ’); 

end  loop; 

put(”Order:  initiator-”); 
put_line(m.  Initiator); 
for  i  In  l..indent+3  loop 
putC  ■); 
end  loop; 
put(”status-”); 

Defense_status_io .  put(m.  order) ; 
new_line; 
end  put_msg; 
end  Order_pkg; 
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ORDER_PTR_PKG 


with  Cones_a_Platforms, 

Order_pkg; 

package  Order_ptr_pkg  is 
use  Cones_n_Platforms; 
use  Order_pkg; 

type  Order_ptr  is  access  Order; 

Command_Transmission:  constant  cone_designator_type 

package  CD  Is  new  interface_procs.ConeDefiner_pkg(Order,Order_ptr); 

package  cast  is  new  Casting_Functions(Order,  Order_ptr); 
function  cast_magic_ptr_into_order_ptr(ptr:  in  PDL_magic_ptr) 
return  Order_ptr  renames  CAST.CAST_magic_ptr_tNTO_T_ptr; 
function  cast_order_ptr_into_magic_ptr(ptr:  in  Order_ptr) 

return  PDU_magic_ptr  renames  CAST.CAST_T_ptr_JNTO_magic_ptr; 
end  Order_ptr_pkg; 


s 


«*•, 

V. 


,s 


The  target  type  is  a  record  with  latitude  and  longitude  entries  used  by  the  Russian  missile  to 
communicate  target  locations  between  its  subprocesses.  The  packages  Target_pkg  and  ^ 

latitude_n_Aongitude  are  given  below;  v”! 


TARGET_PKG 


with  PortDefiner_pkg; 

3 

package  Target_pkg  is 

S 

type  Target  is  record 

latitude:  float; 

longitude:  float; 

js 

end  record; 

Target_debug_class:  string(1..6):~  "Target"; 

procedure  put_msg( 

,v 
•  . 

m:Target; 

indent :  integer :  -20) ; 

package  pd  is 

new  PortDefiner_pkg( 

Target, 

putjnsg, 

"TARGET”, 

Target_debug_class), 

l 
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The  sense-req  type  is  identical  to  the  cone_type  defined  by  SADMT.  Thus,  sense_req  con¬ 
tains  4  fields,  a  source-point ,  and  indicator_point ,  a  half_angle,  and  a  blackout-radius.  This 
message  type  is  used  to  specify  the  conical  scope  of  a  sensor  scan.  Once  again  the  access  type 
sense-reqjptr  is  separate  from  the  base  type  sense_req-ptr.  This  is  done  to  conform  with  the  nam¬ 
ing  conventions  of  SAGEN.  The  packages  Sense-Req-pkg  and  Sense_Req_ptr_pkg  are  given 
below: 


SENSORJREQ_PKG  ■ 


with  PortDefiner_pkg, 

Vector_pkg, 

PDL_pkg, 

Cones_n_Platforms ; 

package  Sense_Req_pkg  la 

subtype  Sense_Req  is  Cones_n_Platforms.cone_type; 

Sense_Req_debug_class:  string(1..13):-  ”Sense_Request”; 
procedure  put_msg( 

m:Scnse_Req; 
indent :  integer :  -  20) ; 
package  pd  la 

new  PortDefiner_pkg( 

Sense_Req, 

put_msg, 

”Sense_Request” , 

>enseJReq_debug_class) ; 

subtype  Sense_Req_port  la  PD.T_port; 
subtype  SenseJReq_ipptr  la  PD.T_ipptr; 
subtype  Sense_Req_sipptr  Is  PD.T_sipptr; 
subtype  Sense_Req_opptr  la  PD.T_opptr; 
subtype  Sense_Req_sopptr  la  PD.T_sopptr; 
end  SenseJReq_pkg; 

package  body  Sense_Req_pkg  is 
procedure  put_msg( 

m:Sense_Req; 
indent:integer:-20)  is 
use  PDi^pkg.PDLJO;  use  TXT  jo,  fltjo; 
use  Vector_pkg; 
begin 

for  i  In  1.  .indent  loop 
put(”); 

end  loop; 

put(”Sense  Request:  inidicator_pt-"); 

put_vector(m.indicator_point,0); 

put(”,  source_pt-”); 

put_vector(m .  source_point  ,0); 

putjine(”,"); 

for  i  In  1.  .indent  loop 

put(”); 

end  loop; 

put(”Half  angle-”); 
put(m .  halt-angle) ; 
put(".  Blackout  Radius-"); 
put(m  .blackout_radius) ; 
newjine; 
end  put_msg; 
end  SenseJReq_pkg; 
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. SENSOR_REQ_PTR_PKG  - 

with  Cones_n_Platforms, 

Sense_Req_pkg; 

package  Sense_Req_ptr_pkg  is 
use  Cones_n_Platfonns; 
use  Sense_Req_pkg; 

type  Sense_Req_ptr  is  access  Sense_Req; 

package  CD  is 

newinterface_procs.ConeDefmer_pkg(Sense_Req,Sense_Req_ptr); 
end  Sense _Req_ptr_pkg ; 


II 
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The  Sensor_Cone_pkg  package  defines  two  cone_designator_types.  The  Sensor_Cone  is 
used  to  distinguish  a  sensor’s  radar,  and  a  Sensor_Cone^Reflection  is  used  to  distinguish  a  radar 
echo.  The  package  Sensor_Cone~pkg  is  given  below: 


SENSOR_CONE_PKG 


with  Cones_n_Platforms ; 

package  Sensor_Cone_pkg  la 
use  Cones_n_Platforms; 

Sensor_Cone:  constant  cone_designator_type 
Sensor_Cone_Reflection:  constant  cone_designator_type 

end  Sensor_Cone_pkg; 


The  Platform_Data_Req_pkg  defines  an  integer  used  as  a  signal  to  request  information 
about  the  current  state  of  the  platform  from  the  PlatformJDataJTM.  When  the  TM  receives  the 
signal  it  computes  the  physical  location,  speed,  velocity,  mass,  and  so  on,  then  this  data  is  sent 
over  the  output  port  in  the  form  of  a  Platform_Data  type.  These  two  message  types  are  given 
below: 


PLATFORM_DATA_REQ_PKG 


with  PortDefiner_pkg; 

package  Platform_Data__Req_pkg  is 
type  PIatfonn_Data_Req  is  new  integer; 

type  Platform_Data_Req_type  is  access  PIatform_Data_Req; 

Platform_Data_Req_debug_class:  string(1..21):-  ”Platform_data_request”; 
procedure  put_msg( 

m :  Platform_Data_Req ; 
indent:integer:-20); 
package  PD  is 

new  PortDefiner_pkg( 

PIatform_Data_Req, 

put_msg, 

PIatform_Data_Req_debug_class); 

subtype  Platform_Data_Req_port  is  PD.T_port; 
subtype  Platform_Data_ReqJpptr  is  PD.T_ipptr; 
subtype  Platform_Data_Req_sipptr  is  PD.T_sipptr; 
subtype  Platform_Data_Req_opptr  is  PD.T_opptr; 
subtype  Platfonn_DataJReq_sopptr  is  PD.T_sopptr, 
end  Platform_Data_Req_pkg; 

with  PD^_pkg; 

package  body  P!atform_Data_Req_pkg  is 
procedure  put_msg( 

m:Platform_Data_Req; 
indent  integer: -20)  is 
use  PDL_pkg.PDL_io;  use  txt_io,  int_io; 
begin 

for  i  in  1.. indent  loop 
put(’  •); 

end  loop; 

put("Platform_Data_Req-”); 
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put(in  teger  (m) ,  1) ; 
new_line; 
endput_msg; 

end  Platform_Data_Req_pkg; 


PLATFORM_DATA_PKG 


with  PortDefiner_pkg, 

Cones_nJPlatforms , 

Vector_pkg; 

package  Platform_Data_pkg  ia 
uae  Cones_n_Platforms, 

Vector_pkg; 

type  Platform_Data  is  record 
designator:  platform_d«signator_type; 
mass:  float; 

eqn_motion:  eqn_motion_type; 
current_eqn_motion_segment:  eqn_motion_type; 
when_arrived_this_segment:  float; 
whenjeaving_this_segment:  float; 
position:  vector; 
speed:  float; 
velocity:  vector; 
end  record; 

type  Platform_Data_type  is  access  Platform_Data; 

Platform_Data_debug_class:  string(1..13):-  ”Platform_data"; 
procedure  put_msg( 

m:Platfortn_t)ata; 
indent:integer:-20); 
package  PD  is 

new  PortDefiner_pkg( 

Platform_Data, 

put_msg, 

Platfonn_Data_debug_class); 

subtype  Platform_Data_port  is  PD.T_port; 
subtype  PlatformJDataJpptr  is  PD.Tjpptr; 
subtype  Platform_Data_opptr  is  PD.T_opptr; 
end  Platform_Data_pkg; 

package  body  Platform_Data_pkg  is 
procedure  put_jmsg( 

m:Platforin_Data; 
indent:integcr: -20)  is 

use  PDL_pkg.PDL_Jo;  use  txt_io,  duration_jo,  int_io; 

use  Vector_pkg; 

procedure  put_indent(offset:integer)  is 

begin 

newjine; 

for  i  in  1.  .offset  loop 
pu‘0  ’); 
end  loop; 
end  put_indent; 
procedure  put_eqn_mot( 

m  :eqn_motion_type; 
indent:integer)  Is 
p:  eqn_motion_type:-ra; 
i:  integer; 
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back_ptr:  boolean:-  false; 

begin 

for  j  in  1.  .indent  loop 
put(’  ’); 
end  loop; 

i:-  1; 

put(i,l); 

while  p  /-  null  loop 

put_indent(indent  +3) ; 
put(”Position-”); 
put_vector(m.  position,  0); 
put_indent(indent  +3) ; 
put(”Delta  time-”); 
put(m.delta_t,l); 
backup  tr:-true; 
exit  when  p.back_ptr_flag; 
back_ptr:-  false; 
p:-  p.next_rec; 
exit  when  p  -  null; 
putjndent(indent) ; 
i:-  i+1; 
put(i,l); 
end  loop; 

put_indent(indent); 

If  back_ptr  then 
put_line(”***Back_ptr”); 

else 

put_Jine(”***NULL”); 

end  if; 

end  put_eqn_mot; 
begin 

for  i  in  1.. indent  loop 

p><  ’); 

end  loop; 

put(”Platfonn  Data:  ”); 

put_indent(indent+3); 

put(”Designator-  ") ; 

put(m.  designator,  all); 

put_indent(indent+3); 

put(”Mass-”); 

put(m.mass); 

put_indent(indent+3); 

put_line("Equation  of  Motion:”); 

put_eqn_mot(m.eqn_jnotion,indent+6); 

put_indent(indent+3); 

put_iine(”Current  Equation  of  Motion  Segment:”); 
put_eqn_mot(m.current_eqn_motion_segment,indent+6); 
put_indent(indent+3); 
put(”Arrived  in  Segment-”); 
put(m.when_arrived_this_segment,l); 
put_indent(indent  +3) ; 
put(”Leaving  Segment-”); 
put(m.whenjeaving_this_segment,l); 
put_indent(indent+3); 
put(”Position-”); 
put  _vector(m .  pos  ition  ,0) ; 
put_indent(indent+3); 
put(”Speed-"); 
put(m.speed); 
put_jndent(indent+3); 
put(  "Velocity-”); 
put_vector(m.  velocity, 0); 
newjine; 
end  put_msg; 
end  Platform_Data_pkg; 
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The  Track_Data_pkg  package  contains  two  basic  data  types.  (1)  Sensor^ID  is  an  integer 
subtype  for  identifying  sensor  satellites.  (2)  TrackJData  is  a  record  consisting  of  a  Sensor_ID, 
the  number  of  targets,  and  a  pointer  to  a  linked  list  of  Track.Data_.recs.  This  data  type  is 
transmitted  between  sensor  platforms;  therefore,  an  access  type  and  ConeDefiner_pkg  must  also 
be  defined.  The  access  type  Track^Data_ptr  and  ConeDefiner_pkg  are  defined  in  the  package 
Track.Data.ptr.pkg.  The  Track.Data.rec  type  is  defined  in  the  package  Track.Data_recjpkg. 
A  Track.Data.rec  contains  information  about  a  single  platform.  It  contains  fields  for  the  posi¬ 
tion  and  the  velocity  of  a  platform  along  with  a  pointer  to  form  a  linked  list.  The  access  type, 
Track.Data_rec.ptr  is  a  pointer  to  a  list  of  Track.Data.rec.  The  three  package  are  given  below: 


TRACK_DATA_PKG 


with  PortDefiner_pkg, 

Track_Data_rec_ptr_pkg; 

package  Track_Data_pkg  is 
use  TrackJData_rec_ptr_pkg; 

subtype  Sensor_lD  is  integer; 
type  TrackJData  is  record 
initiator:  Sensor _ID; 
number_o£_targets:  integer; 
trackjist:  Track_Data_rec_ptr; 
end  record; 

Track_Data_debug_class:  string(l-.lO):-  Track-Data”; 
procedure  put_msg( 

m:Track_Data; 
indent  .integer :  -20) ; 
package  po  Is 

new  PortDefiner_pkg( 

Track-Data, 

put_msg, 

TRACK— DATA” , 

Track— Data-debug-class) ; 

subtype  Track_Data_port  is  PD.T-port; 
subtype  Track_Data_jpptr  is  PD.Tjpptr; 
subtype  Track_Data_sipptr  is  PD.T_sipptr; 
subtype  Track_Data_opptr  is  PD.T_opptr; 
subtype  Track-Data— sopptr  is  PD.T_sopptr; 

end  TrackJData-pkg; 
with  PDL— pkg; 

package  body  Track— Data_pkg  is 
procedure  put_msg( 

m:Track_Data; 
indent:integer:-20)  is 
use  PDL-pkg.PDt—jo;  use  TXT-IO,  [NT_Io; 
begin 

for  i  in  1 .  .indent  loop 
putC  ’); 

end  loop; 

put(Track  Data:  initiator-”); 
put(integer(m  .initiator),  1) ; 
put(”  num_o£-targets-”); 
put(m.number_o£_targets,l); 
newjine; 

Track-Data_rec_ptr_pkg.put-insg(m.  trackjist,  indent+5); 

end; 

end  Track-Data_pkg; 
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TRACK_DATA_PTR_PKG 


with  Track_Data_rec_ptr_pkg, 

Xrack_Data_pkg, 

Cones_n_Platforms ; 

package  Track_Data_ptr_pkg  is 

use  Track_Data_rec_ptr_pkg,  Track_Data_pkg,  Cones_n_Platforms; 

type  Track  Data  ptr  is  access  Track_I>ata; 

Sensor_Data_Transmission:  constant  cone_designator_type 

package  CD  is 

new  interface_procs.ConeDefiner_pkg( 

Track_Data, 

Track_Data_ptr); 

package  cast  is  new  Casting_Functions(TrackJData,  TVack_Data_ptr); 
function  cast_magic_ptr_into_track_data_ptr(ptr:  in  pm.  magic  ptr) 
return  Track_Data_ptr  renames  CAST.CAST_magic_ptr_WTO_T_ptr; 
function  cast_track_data_ptr_into_magic_ptr(ptr:  in  Track_Data_ptr) 
return  PDU_magic_ptr  renames  CAST.CAST_T_ptr_lNTO_magic_ptr; 

end  Track_Data_ptr_pkg; 


TRACK_DATA_REC_PKG 


with  PortDefiner_pkg, 

Vector_pkg, 

Cones_n_Platforms; 

package  Track_Data_rec_ptr_pkg  is 
use  Vector_pkg,  Cones_n_Platforms; 

type  Track_Data_rec; 

type  Track_Data_rec_ptr  is  access  Track_Data_xec; 
type  Track_Data_rec  is  record 
position:  point_type; 
velocity:  point_type; 
next_rec:  Track_Data_rec_ptr; 
end  record; 

Track_Data_rec_ptr_debug_class:  string(1..18):-  "TrackJData^Pointer” 
procedure  put_msg( 

m:TrackJData_rec_ptr; 
indent  :integer:  -20) ; 
package  PD  is 

new  PortDefiner_pkg( 

Track_Data_rec_ptr, 

put_msg, 

”TRACK_DATA_POINTER”, 

Track_Data_rec_ptr_debug_class); 

package  CD  is 

new  interface_procs.ConeDefiner_pkg( 

Track_Data_rec, 

Track_Data_rec_ptr); 

subtype  Track_Data_rec_ptr_port  is  PD.T_port; 
subtype  Track_Data_rec_ptr_ipptr  is  PD.Tjpptr; 
subtype  Track_Data_rec_ptr_sipptr  is  PD.T_sipptr; 
subtype  Track_Data_rec_ptr_opptr  is  PD.T_opptr; 
subtype  Track_Data_rec_ptr_sopptr  is  PD.T_sopptr; 
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package  cast  is 

new  CastingJF  unctions  (Track_Data_rec,  Track_Data_rec_ptr); 
function  cast_m agic_p tr_jn  to_ track_da ta_rec_p tr(p  tr:  In  PDL_magic_ptr) 
return  Track_T)ata_rec_ptr 
rename*  CAST.CAST_magic_ptr_iNTO_T_ptr; 
function  cast_track_data_rec_ptr_into_inagic_ptr( 
ptr:  in 

Track_Data_rec_ptr) 

return  PDU_magic_ptr  renames  CAST.CAST_T_ptr_lNTO_jnagic_ptr; 

function  new_track_data_rec  return  Track_Data_rec_ptr; 
procedure  free_track_data_rec(r:  in  out  TrackJData_jec_ptr); 
procedure  free_track_data_Jjjt(r:  in  out  Track_Data_rec_ptr); 
end  Track_Data_rec_ptr_pkg; 

package  body  Track_Data_rec_ptr_pkg  is 

globaLstore-  Track_Data_rec_ptr:-  null; 

procedure  put_msg( 

m:Track_Data_rec_ptr; 
indent:integer:-20)  is 

use  Cone3_n_PJatformi.PDL_pkg.PDl_JO;  use  TXT-IO,  INT_JO; 
use  Vector_pkg; 
p:  Track_Data_rec_ptr:-m; 
i:  integer; 
begin 

for  j  In  1. .indent  loop 

put(’  ’); 

end  loop; 

put_line(”Track_Datawrec_ptr.  data-") ; 
i:-  1; 

while  p  /-  null  loop 
for  j  in  l..indent+3  loop 

put(”); 

end  loop; 

put(i);  put(”:  position/velocity-”); 
put_vector(m.poaition,0);  put(’/’); 
put_vector(m .  velocity.O) ; 
newjine; 
p:-  p.next_rec; 
end  loop; 

for  j  In  1.  .indent  loop 

put(’  ’); 

end  loop; 

put_)ine(”***NULL  end  track_data_rec_ptr”); 
end  puLmsg; 

function  new_track_data_rec  return  Track_Data_rec_ptr  is 
newjrec:  Track_Data_rec_ptr:-  null; 

begin 

if  globaLstore  -  null  then 
new_rec:-  new  Track_Data_rec; 

else 

new_rec:-  globaLstore; 
globaLstore:-  globaLstore. next_rec; 

end  If; 

new_rec.next_rec:-  null; 
return  new_rec; 
end  new_track_data_rec; 

procedure  free_track_data_rec(r:  in  out  Track_Data_rec_ptr)  is 

begin 

If  r  /-  null  then 

r.next_rec:-  globaLstore; 
globaLstore:  -  r; 
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r:-  null; 
end  If; 
return; 

end  free_track_data_rec; 

procedure  £ree_track_data_list(r:  in  out  Track_Data_rec_ptr)  U 
follower:  Track_Data_rec_ptr:-  r; 

begin 

Ur/-  null  then 

while  follower.next_rec  /-  null  loop 
follower:  -  follower.next_rec; 

end  loop; 

follower.  next_rec:-  global_store; 
global_store:-  r; 
r:-  null; 
end  if; 
return; 

end  free_track_data_iist; 


end  Track_data_rec_ptr_pkg; 

The  next  package  does  not  define  message  types  or  port  types;  however,  it  is  useful  when 
printing  the  value  of  spatial  vectors.  The  package  Vector _I0  defines  the  procedure  put.  Put  out¬ 
puts  a  vector  as  the  latitude,  longitude,  and  height  above  the  surface  of  the  earth.  The  package  is 
given  below. 


VECTOR IO 


with  Vector_pkg; 

package  Vector_lO  is 
use  Vector_pkg; 

procedure  put( 
v:  vector; 
fore:  integer:-  4; 
aft:  integer:-  3; 
exp:  integer.-  0); 

end  Vectorjo; 

with  PDL_pkg, 

Latitude_nJLongitude , 
Cones_n_Platforms , 

Math; 

package  body  Vector_jo  is 
use  PDL_pkg.PDU_IO.TXT_ IO, 
PDL_pkg.PDL_I0.FL.T_lO, 

Math; 

min_Jen:  constant:-  0.0001  * 
Latitude_n_Longitude.Re; 

procedure  put( 
v:  vector; 
fore:  integer:-  4; 
aft:  integer:-  3; 
exp:  integer:  -  0)  is 
lat:  float; 
long:  float; 
height:  float; 
temp:  float; 
begin 
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if  length(v)  <  min  len  then 
put(”(Center  of  the  Earth)”); 

return; 
end  if; 

lat:-  arcsin(v.z/length(v)); 
temp:-  sqrt(v.x*v.x  +  v.y*v.y); 
if  temp  -  0.0  then 
long:  -  0.0; 

else 

long:-  arcsin(v.y/temp); 

end  if; 

height:-  length(v)  -  Latitude_n_Longitude.Re; 
lat:-  lat  •  180.0  /  Pt; 
long:-  long  *  180.0  /  pi; 
if  v.x  <  0.0  then 

long:-  180.0 -long; 
elsif  v.y  <  0.0  then 
long:-  long  +  360.0; 
end  if; 

height:-  height  /  Cones_n_Platforms.PDL_lunits_per_kilometer; 
put(”(lat  -  ”); 
put(lat, fore, aft, exp); 
put(”  deg., long-  "); 
put(long, fore, aft, exp); 
put(”deg.,hgt  -  "); 
put(height, fore, aft, exp); 
put(”  km.)”); 
exception 
when  others  -> 

put_line(”An  untrapped  exception  occurred  in”  & 

”  VectorJO.put.”); 

raise; 

end; 

end  Vector_lO; 
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5.  SDSOBM/C3 

The  following  SAGEN  code  defines  the  BM/C3  processes  of  SDSO.  Figure  5-1  through 
Figure  5-4  illustrate  the  SADMT  process  architecture  of  the  system.  Figure  5-1  through 
Figure  5-3  show  the  architectures  of  a  Command-Post,  Weapon-Platform,  and  Sensor-Platform, 
respectively.  Figure  5-4  shows  the  next-level  decomposition  of  the  Sensor_Platform_Processing 
process  form  the  Sensor_Platform  platform. 


Figure  5-1.  Command  Post  Architecture. 
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. COMMAND  POST 


Command_Post  Platform  Description 


—  DESCRIPTION 

—  The  Command  Post  (CP)  enables  the  system  (by  sending  an  "at  war" 

—  message)  once  it  hears  about  any  targets.  It  disables  the  system 

—  (by  sending  an  "at  peace”  message)  after  hearing  about  aero 

—  targets  for  more  than  an  hour. 

—  The  CP  sends  one  of  these  messages  to  all  satellites  every  10  seconds. 

—  On  a  peace-to-war  transition,  a  message  is  sent  immediately. 


—  PLATFORM  SPECIFICATION 
{platform  Command_Post:-  Command_Post  is 

{parameter  CP_id:  string(1..7):-  ("-CP — ”); 

{subprocess  CommancLPost_Processing:  -  (CP_id), 

Ground_Station_Communication_TM:  -  (cp_id); 

—  The  PIG  is  a  predefined  subprocess  of  every  platform 

{subdata  Order,  Track_data,  Cone_msg; 

{end; 

—  PORT  LINKAGES 

with  Sensor_Cone_Response_TM_pkg; 

{links  Command_Post  Is 

{begin 

—  Exclude  the  Radar  Return  TM 
exclude_dyn_module(MYSELF, 

Sensor_ConeJResponse_TM_pkg.Sensor_Cone_Response_TM_designator); 

—  Connect  Command_Post  to  Ground_Station_Communication_TM 
intemaUink  (Command_Post_Processing.Send_status_msg, 

Ground_Station_Communication_TM.Order_xmit); 
intemaUink  (Ground_Station_Communication_TM.Sensor_data_rcv, 
Command_Post_Processing.Recv_sensor_msg); 

—  Connect  PIG  to  Ground_Station_Communication_TM 
intemaUink  (pig. Beamings, 

Ground_Station_Communication_TM.Cone_in  j; 

{end; 


—  PROCESS  SEMANTICS 

—  The  semantics  of  this  platform  are  defined  within  its  subprocesses. 

—  Older  versions  of  Sagen  required  the  {task,  this  one  doesn’t 


Command_Post_Processlng  Process 


—  PROCESS  SPECIFICATION 
{process  Command_Post_Processing  is 
{parameter  cp_id:  string(1..7):- ("-CP— ”); 
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{Inport  Recv_sensor_msg:  Track_data; 

{outport  Send_status_msg:  Order; 

{subprocess  Processor:  -  (cpjd), 

Timer:  -  (cp_id); 

{sub  data  Time,  Boolean; 


—  PORT  LINKAGES 


$  links  Command_Post_Processing  Is 


—  Connect  Processor  to  parent  (Command_Post_Processing) 
inheritedLlink  (Recv_sensor_msg, 

Processor.  Recv_sensor_msg); 
inheritedLlink  (Processor.Send_status_msg, 

Send_status_msg) ; 

—  Connect  Processor  to  Timer 
internaljink  (Processor.Start_timer, 

Timer.Start_timer); 
internaljink  (Timer.Sound_alarm, 

Processor.Timer_alarm); 


—  TASK  SEMANTICS 

—  The  semantics  are  defined  in  the  subprocesses  Processor  and  Timer. 

—  Older  versions  of  Sagea  required  the  Stask,  this  one  doesn’t 


Processor  Process 


—  PROCESS  SPECIFICATION 


{process  Processor  is 

{parameter  CPjd:  string(1..7):-  (”-CP — ”); 

{inport  Recv_sensor_msg:  Track_data, 
Timer_alarm:  Boolean; 

{outport  Send_status_msg:  Order, 
Start_timer:  Time; 


—  PORT  LINKAGES 

—  There  are  no  port  linkages  within  this  process 

—  Older  versions  of  Sagen  required  the  Slink,  this  one  doesn’t 

—  TASK  SEMANTICS 
{task  Processor  is 

Status:  Order; 

Last_target_time:  PDL_time_type; 

Targets_detected:  Boolean; 

Sensor  Jnfo:  Track_data; 

sec:  constant:-  PDL_ticks_per_second; 
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min:  constant:-  60  *  PDL_ticks_per_second ; 


—  Start  at  peace 
Status. Initiator:-  cpjd; 

Status. Order:-  defcon7; 

—  Send  status  to  all  satellites 
Emit  (Send_status_msg,  Status); 

—  DEMO  MSGS  *•* 

If  Current_debugjevel  >  20  then 
Put  (cp_id); 

Put  (”  broadcast  status  ”); 
if  Status.  Order  -  DEFCON  1  then 
Put  ("war."); 

elsif  Status. Order  -  DEFCON7  then 
Put  ("peace."); 
end  if; 

Put  ("  T-”); 

Put  (Current_PDtJime); 
Newjine; 

end  if; 

—  •**  DEMO  MSGS 

—  Start  the  10  second  timer 
Emit  (Start_timer,  10*sec); 


—  If  no  msgs  are  waiting,  then 
If  (PortJength  (Recv_sensor_msg)  -  0)  AND 
(PortJength  (Timer_alarm)  -  0)  then 

—  Wait  10  sec  to  send  next  status  msg  or 

—  until  msg  arrives  from  sensors 
Wait_for_activity; 


—  If  any  msgs  arrived  from  the  sensors,  then 
if  PortJength  (Recv_sensor_msg)  >  0  then 

—  Check  to  see  if  any  sensors  report  targets 
Targets_detected:-  false; 
for  i  in  1 .  .PortJength  (Recv_sensor_msg)  loop 
Sensorjnfo:-  Port_data  (Recv_sensor_msg); 

—  ***  DEMO  MSGS  ••• 

if  Current_debugjevel  >  20  then 
Put  (cpjd); 

Put  ("  recvd  msg  from  sensor”); 

Put  (Sensorjnfo. Initiator); 

Put  (”;”); 

Put  (Sensor Jnfo.Number_of_targets); 

Put  (”  targets  detected.”); 

Put  (”  T-"); 

Put  (Current_PDU_time); 

Newjine; 

end  if; 

—  •••  DEMO  MSGS  *•* 

Consume  (Recv_sensor_msg); 

If  Sensorjnfo. Number_of_targets  >  0  then 
Targets.detected:-  true; 
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end  if; 
end  loop; 

—  If  any  sensors  report  targets  detected,  then 
If  Targets_detected  then 

—  If  status  had  been  peace,  then  change  to  war 
if  Status. Order  -  defcon7  then 
Status.Order:-  DEFCON  1; 

—  Send  status  msg  to  all  satellites 
Emit  (Send_status_msg,  Status); 

—  •••  DEMO  MSGS  *** 

if  Current_debugJevel  >  20  then 
Put  (cpjd); 

Put  (”  broadcast  status  ”); 

Put  ("war.”); 

Put  (”  T-”); 

Put  (Current_PDU_time); 

New_line; 

end  if; 

—  ***  DEMO  MSGS  *** 

—  Record  the  last  time  targets  were  seen 
Last_target_time :  -  Current_PDL_time; 

end  if; 
end  if; 
else 

—  Timer  must  have  gone  off 


—  Remove  the  Timer  msg  from  the  queue 
Consume  (Timer_alarm); 
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Timer  Process 


—  PROCESS  SPECIFICATION 

{process  Timer  it 

{parameter  CP_id:  string(1..7):-  ("-CP—"); 

Slnport  Start_timer:  Time; 

Soutport Sound_alarm:  Boolean; 

Send; 

—  PORT  LINKAGES 

—  There  are  no  port  linkages  within  this  process 

—  Older  versions  of  Sagen  required  the  Slink,  this  one  doesn’t 

—  TASK  SEMANTICS 
$taik  Timer  Is 

Interval:  Time; 

Wake_up:  constant  Boolean:-  TRUE; 

{begin 

wait_for_activity; 

Interval:-  Port-data  (Start-timer); 
consume  (Start_timer); 

loop 

wait  (Interval); 

emit  (Sound_alarm,  Wake_up); 

end  loop; 

Send; 
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WEAPON  PLATFORM 


Weapons_Platform  Platform  Description 


DESCRIPTION 

The  Weapons  Platform  (WP)  listens  to  each  incoming  message. 

If  it  is  a  command  message,  the  WP  gets  the 
current  status  from  it.  Only  if  it  is  at  war  does  the 
WP  process  messages  from  the  sensor  satellites.  Furthermore,  the  WP 
is  concerned  only  with  non-relayed  sensor  messages. 

For  each  message  processed,  the  WP  finds  the  target  with  the  highest 
probability  of  kill  (Pk).  If  that  Pk  is  higher  than  some  minimum,  it 
shoots  that  target. 


Weapons  Platform 


Weapons  Platform  Processing 
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Figure  5-2.  Weapons  Platform  Architecture. 
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—  The  WP  does  not  bother  to  count  its  remaining  KEWs;  it  keeps  playing 

—  the  game  even  after  it  has  exhausted  its  supply. 

—  PLATFORM  SPECIFICATION 

(platform  Weapons— Platform:-  Weapons_Platform  Is 

(parameter  wp_id:  string(1..7):- ' WP — ”); 

(subprocess  Weapons_Platform_Processing:  -  (wp_id), 
KKV_Weapon_TW:-  (wpjd), 
Weapons_Platfonn_Communication_TM:  -  (wp_id), 
PlatformJData_TM:-  (w_jd), 

Orbit-Equation_Of_Motion_TM:-  (wp_id); 

—  The  PIG  is  a  predefined  subprocess  of  every  platform 

(subdata  Vector,  Order,  Track-data,  Platform_data_req,  Platform_data, 
Conejnsg,  Event_Msg; 


—  PORT  LINKAGES 

with  Sensor_Cone_Response_TM_pkg; 

(links  Weapons_Platform  is 

(begin 

—  Exclude  the  Radar  Return  TM 
exclude_dyn_module(MYSELF, 

Sensor_Cone_Response_TM_pkg.Sensor_Cone_Response_TM_designator); 

—  Connect  Weapons_Platform_Processing  to  KKV_Weapon_TM 
intemaUink  (Weapons_Platfonn_Processing .  Fire_weapon , 

KKV— Weapon— TM  .Target-in) ; 

—  Connect  Weapons_Platform_Communication_TM  to 

—  WeaponsJPlatform_Processing 

internal-link  (Weapons_Platform_Communication_TM.Sensor_data_rcv, 
Weapons_Platfonn_Processing.Recv-sensor_msg); 

intemaUink  (Weapons_Platform-Communication-TM.  Order_rcv, 
Weapons_Platform_Processing,Recv-status_msg); 

—  Connect  Weapons_Platform_Processing  to  Platform_Data_TM 
internal-link  (Weapons_Platform_Processing.Request_wp_data, 

Platform-Data_TM .  Req_in) ; 

intemaUink  (Platform_Data_TM.  Data-out, 

Weapons-Platform-Processing.RecV-WP_data); 

—  Connect  PIG  to  Weapons_Platform_Communication_TM 
intemaUink  (pig. Beamings, 

Weapons_Platform_Communication_TM.  Cone-in); 


—  Connect  PIG  to  Orbit-Equation_Of_Motion_TM 
intemaUink  (pio .  Events , 

Orbit-Equation-Of_Motion-TM .  Event  Jn) ; 


■  TASK  SEMANTICS 

-  The  semantics  of  this  platform  are  defined  within  its  subprocesses 

-  Older  versions  of  Sagen  required  the  (task,  this  one  doesn’t 
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Weapons-Platform— Processing  Process 


—  THIS  PROCESS  USES 

—  Procedure,  Find_Pk,  to  determine  probability  of  kill. 

—  Function,  Aim,  to  determine  the  vector  for  firing  the  weapon. 

—  SIMULATION  TIME  USED 

—  The  computing  time  for  this  algorithm  is  (3  +  0.2/target)  seconds. 

—  PROCESS  SPECIFICATION 
$technology_module  Weapons_Platform_Processing  Is 

{parameter  wp_id:  string(1..7):-  (”— WP — ”); 

{Inport  Recv_sensor_msg:  Track-data, 

Recv_status_msg:  Order, 

Recv_wp_data:  Platform— data; 

{outport  Fire-weapon:  Vector, 

Request- WP_data:  Platform_data_req; 


Send; 

—  PORT  LINKAGES 

—  There  are  no  port  linkages  within  this  process 

—  Older  versions  of  Sagen  required  the  Slink,  this  one  doesn’t 

—  TASK  SEMANTICS 

with  Track_data-rec_ptr_pkg,Vector_lO ; 
use  Track_data-rec_ptr_pkg,Vector_Jo; 

Stask  Weapons  JPlatform_Processing  Is 

Status_msg:  Order; 

Status:  Defense-status; 

Sensor-info:  Track-data; 

Pk:  Float:-  0.0; 

Pk_majt:  Float:-  0.0; 
wP-data:  Platform_data; 

My_position:  Vector; 

Best-target:  Track_data_rec-ptr; 

Current-target:  Track_data-rec_ptr; 

Target-vector:  Vector; 

Seed:  Integer:-  15; 

Pk_min:  constant  Float:-  0.2; 

sec:  constant:-  PDU_ticks_per_second; 

km:  constant:-  PDLJunits_per_kilometer; 

procedure  Find_Pk  ( 

Target:  in  Track_data_rec_ptr; 

Pk:  out  Float)  is 

procedure  Rand  (Seed:  in  out  integer;  Num:  out  float)  Is 
—  Returns  a  float  proportional  to  the  random  integer 
—  in  the  range  0.0  . .  1.0. 

a:  constant:-  13849; 
m:  constant:  -  65536; 
c:  constant:  -  56963; 

begin 
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Seed:  -  (seed  *  a  +  c)  mod  m; 

Num:- float(seed)  •  1.52587890625E-5; 

end  rand; 

begin 

if  Length  (My_position  -  Target. Position)  >  Float(4500*km)  then 
Pk:-  0.0; 
else 

Rand  (Seed,  Pk); 

end  If; 

end  Find_Pk; 


function  Aim  ( 

Target:  inTrack_Data_rec_ptr; 
My_position:  in  Vector) 
return  Vector  is 

intercept_point:  vector; 
new_target_position:  vector; 
distance:  float; 
deltaj:  float; 
delta_d:  float:-  1.0; 


new_target_position:  -  target,  position; 
while  delta_d  >  0.00001  loop 
intercept-point:  -  new_target_position; 
distance: -  length(intercept_point  -  my_posilion); 
deltaj:-  distance  /  (5.0  *  Float(kmAec)); 

new_target_position:-  target. position  +  (deltaj  *  target.veiocity); 
delta -_d:-  Length  (new_target_position  -  intercept_point); 

end  loop; 

return  intercept-point; 
end  Aim; 


—  Start  at  peace 
Status:-  DEFCON7; 


—  If  no  msgs  are  at  any  ports,  then  wait  for  msgs  to  come  in 
If  PortJength  (Recv_status_msg)  -  0  and 
Port_length  (Recv_sensor_msg)  -  0  then 
Wait_for_activity ; 


—  If  a  status  msg  has  arrived,  then  update  the  status 
If  PortJength  (Recv_status_msg)  >  0  then 
Status_msg:-  Port_data  (Recv_status_msg); 
Consume  (Recv_status_msg); 

Status:-  Status_msg. Order; 

—  ••*  DEMO  MSGS 
if  Current_debugjevel  >  20  then 
Put  (wpjd); 

Put  (”  recvd  status  "); 

If  Status  -  DEFCON  1  then 
Pu»  ("war"); 

eisif  Status  -  DEFCON7  then 
Put  ("peace"); 

end  if; 
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Put  ("from  ”); 

Put  (Status_msg.  Initiator); 

Put  (”.  T-”); 

Put  (Current_PDL_time); 

NewJine; 
end  if; 

—  ***  DEMO  MSGS  •** 

end  If; 

—  If  a  sensor  msg  has  arrived,  then 
if  PortJength  (Recv_sensor_msg)  >  0  then 
Sensor_jnfo:-  Port-data  (Recv_sensor_msg); 
Consume  (Recv_sensor_msg) ; 


—  If  the  msg  came  directly  from  a  sensor  (i.e.,  not  a  relay)  AND 

—  current  status  is  DEFCON1,  then 

If  (Sensor_info.Track_list  /-  null)  and  (Status  -  DEfconI)  then 

—  •**  DEMO 

—  Get  rid  of  the  extra  sensor  msgs 

for  i  in  l..PortJength(Recv_sensor_msg)  loop 
Consume  (Recv_sensor_msg); 
end  loop; 

—  DEMO  *** 

—  If  any  targets  were  detected,  then 

if  Sensor_info.Number_of_targets  >  0  then 

—  Get  the  current  position  of  the  Weapons  Platform 
Emit  (Request_wp_data,  0); 

Wait_for_activity  ((l->Recv_WP_data.Port)); 
wp_data:-  Port-data  (Recv_wp_data); 

Consume  (Recv_WP_data); 

My_position:-  wp_data.Position; 

—  Pick  the  best  target 
Pk_max:-0.0; 

Current-target: -  Sensor_info . Trackji s t ; 


while  (Current-target  /-  null)  loop 
Find-Pk  (Current-target,  Pit); 
if  Pk  >  Pk_max  then 
Pk_max:-  Pk; 

Best-target:  -  Current-target; 

end  if; 

—  Get  the  next  target 

Current-target : -  Current-target . Next_rec ; 

end  loop; 

—  If  the  Pk  is  acceptable,  then 
If  Pk-jnax  >-  Pk  min  then 


—  Aim  at  the  selected  target 
Target-vector:-  Aim  (Best-target,  My_position); 

—  Shoot  at  the  target 

Emit  (Fire_ weapon,  Target-vector); 

—  •••  DEMO  MSGS  *•* 

if  Current-debug-level  >  20  then 
Put  (wp_id); 

Put  ("  fired  weapon  toward  target  at  ”); 

Put  (Target-vector); 
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Put(”.T-"); 

Put  (Current_PDL_titne); 

Newjine; 

end  if; 

—  ***  DEMO  MSGS  •** 

end  if; 
end  if; 
end  if; 
end  if; 

Wait  (sec/2); 

end  if; 
end  loep; 
exception 

when  other*  ->  write_process_full(MYSELF,"**Some  error  in  *); 

end; 
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SENSOR  PLATFORM 


—  Sensor  ^Platform  Platform  Description 

—  DESCRIPTION 

—  The  sensor  platform  scans  the  world  and  sends  reports  (to  everyone) 

—  about  all  detected  targets.  (Messages  are  sent  regardless  of  whether 

—  targets  are  detected  or  not.  It  also  rebroadcasts  summaries  of 

—  sensor  messages  originated  by  sensors  of  higher  sensor-ID. 

—  PLATFORM  SPECIFICATION 
Splatform  Sensor_Platform:-  Sensor  JPlatform  is 

(parameter  SP_id:  string(1..7):-  ("-SP— ”); 

Ssubproeess  Sensor_Platform_Processing:  -  (sp_id), 

Sensor  Platform 


Figure  5-3.  Sensor  Platform  Architecture. 
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—  Connect  Sensor_Platform_Processing  to  Platform_Data_TM 
intemaUink(Sensor_Platform_Processmg.Request_SP_data, 

Platform_Data_TM.ReqJn); 
intern  alj  ink  (PlatfonnJData_TM. Data-out, 

Sensor_Platform_Processing.  Recv_SP_data) ; 

—  Connect  PIG  to  Sensor_Satellite_Communication_TM 
internaUink  (pig. Beamings, 

Sensor_Satellite_Communication_TM .  Cone  Jn) ; 

—  Connect  PIG  to  Sensor_Device_TM 
internaUink  (pig. Beamings, 

Sensor_Device_TM.Cone_in); 


Send; 

—  TASK  SEMANTICS 

—  The  semantics  of  this  platform  are  defined  within  its  subprocesses. 

—  Older  versions  of  Sagen  required  the  (task,  this  one  doesn’t 


Sensor— Platform— Processing  Process 


—  PROCESS  SPECIFICATION 

(process  Sensor_Platform_Processing  is 

(parameter  spjd:  string(1..7):-  ("-SP — "); 

(inport  Recv_sensor_info:  Track-data, 
Recv_sensor_msg:  Track-data, 
Recv_5P_data:  Platform_data; 

(outport  Employ-sensor:  Sense_req, 
Send-sensor-msg:  Track-data, 
Request-SP-data:  Platform_data— req; 

(subprocess  Sense:-  (sp_id), 

Relay:  -  (sp_id); 


(end; 

—  PORT  LINKAGES 

(links  Sensor_Platform_Processing  is 

(begin 

—  Connect  Sense  to  parent  (Sensor_Platform_Processing) 
inherited  Jink  (Recv_sensor  Jnfo, 

Sense.  Recv-sensorjnfo); 
inherited  Jink  (Sense .  Employ_sensor, 

Employ_sensor); 
inheritedj.'nlr  (Recv_sp_data, 

Se  .’e.Recv-SP-data); 
inherited-  1 1  (Sense .  Request_SP_data , 

Rt  ,uest_SP..data); 

inherited  Jink  (Sense. Send_sensor_rasg, 
Send_sensor_msg); 

—  Connect  Relay  to  parent  (Sensor_Platform_Processing) 
inherited  Jink  (Recv_sensor_msg, 

Relay.  Recv-sensor_insg)', 
inherited-link  (Relay.  Send_sensor_msg, 
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Send_sensor_msg); 


—  TASK  SEMANTICS 

—  The  semantics  are  defined  in  the  subprocesses  Sense  and  Relay 

—  Older  versions  of  Sagen  required  the  Stask,  this  one  doesn’t 


Sense  Process 


—  TASK  SPECIFICATION 
{process  Sense  Is 

{parameter  SP_id:  string(1..7):-  (”-SP — ”); 

{inport  Recv_sensor_jnfo:  Track_data, 

Recv_sp_data:  Platform_data; 

{outport  EmpIoy_sensor:  Sense_req, 

Request_sp_data:  Platform_data_xeq, 
Send_sensor_msg:  Track_data; 

{end; 

—  PORT  LINKAGES 

—  There  are  no  port  linkages  within  this  process 

—  Older  visions  of  Sagen  required  the  Slink,  this  one  doesn’t 

—  TASK  SEMANTICS 

with  Vector_pkg; 
use  Vector_pkg; 

{task  Sense  Is 

SP_data:  Platform_data; 

My.,  position:  Vector; 

Sense_area:  Sense_req; 

Sensor_info:  Trackudata; 

My_id:  Integer:  -  0; 

sec:  constant:  -  PDL_ticks_per_second; 

function  Get_int_jd  (IdLstring:  string)  return  Integer  is 

begin 

case  IdLstring  (7)  is 
when  T  ->  return  1; 
when  ’2’  -  >  return  2; 
when  ’3’  ->  return  3; 
when  ’4’  -  >  return  4; 
when  others  -  > 

Put_line  (”*•*  ERROR  ***  -  Sense  found  incorrect  id”); 

return  0; 
end  case; 

end  Get_int_id; 

{begin 


—  Get  the  current  position  of  the  Sensor  Platform 
Emit  (Request_SP_data,  0); 

Wait_for_activity  ((1 -  >  Recv_SP_data.  Port)) ; 

SP_data:-  Port_data  (Recv_sp_data); 

Consume  (Recv_sp_data); 

My_position:-  SP_data. Position; 
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—  Set  the  current  sense  location 

—  Sense_area.Axis:-  (0.0,  0.0,  0.0)  -  My_position 

—  (0.0,  0.0,  0.0)  -  destination; 

—  Sense_area.Hal£_angle:-  360.0; 

—  Sense_area.Blackout_radiuse-  0.0; 

—  Send  a  msg  to  the  sensor  module  requesting  sensor  data 
Emit  (Employ_sensor,  (  (0.0, 0.0, 0.0),  (0.0, 0.0, 0.0),  360.0,  0.0)  ); 

—  Wait  for  the  sensor  data  to  be  returned 
Wait_for_activity  ((l->Recv_sensor_info.Port)); 

—  Read  the  data  from  the  port 
Sensor_info:  -  Port_data  (Recv_sensor_info); 

—  Remove  that  msg  from  the  port  queue 
Consume  (Recv_sensor_info); 

end  if; 

—  Complete  the  message  by  assigning  the  sensor  id 
My_id:-  Get_int_id  (sp_id); 

Sensor_info. Initiator:-  My_id; 

—  Send  the  msg 

Emit  (Send_sensor_msg,  Sensor_jnfo); 

—  •**  DEMO  MSGS  •** 

if  Current_debugjevel  >  20  then 
Put  (spjd); 

Put  (”  sent  sensor  msg;  ”); 

Put  (Sensor_info.Number_of_targets); 

Put  (”  targets  detected."); 

Put  (”  T-"); 

Put  (Current_PDU_time); 

Newjine; 

end  if; 

—  ***  DEMO  MSGS  •** 

Wait  (2*sec); 

end  loop; 
exception 

PutJine(”**Some  error  in  SPP_task**”); 

Send; 


Relay  Process 


•  PROCESS  SPECIFICATION 


{process  Relay  is 


{parameter  sp_id:  string(1..7):- ("-SP — "); 
{inport  Recv_sensor_msg:  Track_data; 
{outport  Send_sensor_msg:  Track_data; 


—  PORT  LINKAGES 

—  There  are  no  port  linkages  within  this  process 

—  Older  versions  of  Sagen  required  the  Slink,  this  one  doesn’t 

—  TASK  SEMANTICS 
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Stask  Relay  i« 

Sensor_msg:  Track_data; 

My_id:  Integer:  -  0; 

Initiator:  Integer:  -0; 

sec:  constant:  -  PDL_ticks_per_second; 

function  Get_int_id  (Id_string:  string)  return  Integer  is 

begin 

case  Id_jtring  (7)  is 
when  'r  ->  return  1; 
when *2’  ->  return  2; 
when  *3’  ->  return  3; 
when  ’4’  ->  return  4; 
when  others  -> 

Putjine  (”•**  ERROR  ***  -  Relay  found  incorrect  id”); 

return  0; 
end  case; 

end  GetJn  t_id; 


My_id:-  Get_int_jd  (sp_id); 

—  If  no  sensor  msgs  have  arrived,  then  wait  for  them, 
if  ForUength  (Recv_sensor_msg)  -  0  then 

Wait_for_activity; 


—  If  a  sensor  msg  has  arrived  from  another  platform,  then 
if  PortJength  (Recv_sensor_msg)  >  0  then 

—  Read  the  msg  from  the  port 
Sensor_msg:-  Port_data  (Recv_sensor_msg); 

—  Remove  that  msg  from  the  queue 
Consume  (Recv_sensor_msg); 

—  If  the  id  of  the  msg  initiator  is  higher  than  my  sensor  id 
if  Sensor_msg.  Initiator  >  My_id  then 

Sensor_msg. Initiator:-  My_id; 

5ensor_msg.Track_list:-  null; 

Emit  (Send_sensor_msg,  Sensor_msg); 

end  if; 
end  if; 
end  if; 

Wait  (l’sec); 

end  loop; 
exception 
Send; 
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6.  Threat  Architecture 

The  threat  architecture  is  a  Russian_Missi!e_Base_Platform  that  launches  one  missile  every 
twenty  seconds.  The  missile  description  is  given  in  the  Russian^Missile^Platform  code.  Basi¬ 
cally,  the  missile  is  launched  from  the  missile  base  by  the  Russian_Missile_Launcher.  The 
launcher  computes  the  target  and  the  trajectory  of  the  missile,  and  then  creates  a  missile  plat¬ 
form  with  the  given  trajectory. 

The  Russian_MissiIe~P!atform  contains  two  technology  modules.  One  module  returns  sensor 
echos  when  beamed  by  a  sensor,  and  the  other  module  determines  the  result  of  collisions. 


. RUSSIAN_MISSILE_BASE_PLATFORM - 

Splatform  Russian_Missile_Base_Platform'.-Russian_Missile_Base  Is 

Ssubprocesses  RussianJvtissileJLauncher_TM:-  (id),  Russian_Missile_Base_BMc3:-  (id); 
{parameter  id:string(1..7):-  (”R_BASE  ”); 

$subdata  Target; 

Send; 


with  Sensor_Cone_Response_TM_pkg; 

Slinks  Russian_Missile_Base_Platform  Is 

Sbegin 

intemaLlink(Russian_Missile_Base_BMc3 .  t  arget_out, 
Russian_Missile_Launcher_TM.target_in); 
exclude_dyn_module(MVSELF, 

Sensor_Cone_Response_TM_pkg.Sensor_Cone_Response_TM_designator); 

excepUon 

when  others  ->  putJin«(”***Some  error  in  Russ_Miss_Base_Plat_init***”); 

Send; 


. RUSSIAN  JVUSSILE_BASEJBMC3 . 

{process  Russian_Missile_Base_BMc3  is 
Soutport  target_out:Target; 

{parameter  platformJd:string(1..7):-  (" - ”); 

Send; 

with  math,  random; 
use  math,  random; 

{task  Russian_Missile_Base_BMc3  Is 
targetjat:  float; 
targeUlong:  float; 
seed:  integer:-  21; 
missile_umit:  constant:-  20; 

SECONDS:  constant:  -  PDUicks_per_second; 

Sbegin 

for  i  in  1..missile_umit  loop 
rand(seed,  targetjat); 
targetjat:-  targetjat  *  15.0  +  30.0; 
rand(seed  .target  Jong) ; 
targetjong:-  targetjong  *  45.0  +  240.0; 
emit(target_out, (targetjat,  target  Jong)); 
wait(PDL_duration_type(20  *  seconds)); 
end  loop; 

exception 

when  others  ->  putJine(n***Some  error  in  Russ_MissJBaseJBMC3_TM_task***”); 
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Send; 


. RUSSIAN_MISSILEJLAUNCHER_TM  ■ 

$technology_module  Russian_Missile_Launcher_TM  is 
Sinport  targetjn:  Target; 

{parameter  platformJd:string(1..7):-  (” - ”); 

Send; 

with  Vector_pkg, 

Vector_JO, 

Math, 

Rujsian_Missile_Platform_pkg, 
latitude_nJongitude ; 
use  Vector_pkg,Vector_Io; 

Stalk  Russian_Missile  JLauncher_TM  Is 
use  Russian_MissileJPlatform_pkg, 

Russian_Missile_Platform_CP_pkg, 
latitude_nJongi  tude , 

Cones_n_Platforms .  eqn_motion_pkg; 
use  Russian_MissileJPlatform_PARAM_pkg; 
use  Math; 

SECONDS:  constant:-  PDL_ticks_per_second; 

km:  constant:-  PDuJunits_perJkilometer; 

current_target:  Target; 

myjatitude:  constant:  -  55.8/180.0  *  Pi; 

myjongitude:  constant:  -  37.9/180.0  *  Pi; 

mu:  constant:-  (3.98633e5  *  (km  **  3))  /  (seconds  *  seconds); 

missile_eom:  eqn_motion_type; 

next_eom_rec:  eqn_motion_type ; 

init_pos:  Vector; 

temp:  float; 

flight_time:  float; 

delta_t:  PDt^duration_type; 

target_site:  Vector; 

normal:  Vector; 

perigee:  Vector; 

inclination:  float; 

omega:  float; 

phi:  float; 

xref,  yref:  float; 

delta_l:  float; 

v_min:  float; 

gamma:  float; 

axis:  float; 

eccentricity:  float; 

mean_motion:  float; 

theta:  float; 

E,  jin_o£_E:  float; 
tau:  float; 

All,  a12,  a13:  float: 
a21,  a22,  a23:  float; 

Cl,  C2:  float; 
mean_anom:  float; 

Ecc_Anom:  float; 
missile_num:  integer:-  1; 

missile_param:  Russian_Missile_Platform_paraineterization_ptr; 

Sbegin 

init_pos:-  location(my Jatitude ,  myjongitude); 
temp:  -  length(init_pos); 
temp:-  (temp  +  1.01*KM)/temp; 
init_pos:-  init_pos  *  temp; 

loop 
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wait_for_activity((l->target_in.Port),StartTiine  ->  0); 
current_target:-  port_data(target_in); 
consume(target_in); 

target_site: -  location(current_target. latitude, 
current_target.  longitude); 
if  current_debugjevel  >  10  then 
put(”(”);  put(platformjd);  put(”)”); 
put(”(RMBLAUN)  launch  request:  ”); 
put(target_site); 
puUine(”.”); 
end  if; 

normal.x:-  init_pos.y  *  target_site.z 

-  init_pos.z  *  target_site.y; 
normal.y:-  init_pos.z  *  target_site.x 

-  init_pos.x  *  target_site.z; 
normal.z:-  init_pos.x  •  target_site.y 

-  init_pos.y  *  target_site.x; 
inclination:  -  arccos(normal.z/length(normal)); 
omega:-  arctan(  -  normal.x  /  normal.y); 
phi:-  arccos((init_pos  *  target_site) 

/(length(init_pos)  *  length(target_site)) 

)/2.0; 

perigee:-  (-1.0)  *  (init_pos  +  target_site); 
xref:-  abs(normal.y); 
yref:-  abs(normal.x); 
delta_l:-  arccos( 

(xref  *  perigee.x  +  yref  *  perigee. y) 
/(sqrt(xref*xref  +  yref*yref)  *  length(perigee)) 


if  perigee.z  <  0.0  then 
delta_l:-  delta_l  +  pi; 

end  if; 

v_min:-  sqrt((2.0  *  sin(phi))  /  (1.0  +  sia(phi))); 
gamma:-  arcsin(cos(phi))/2.0; 
axis:-  Re  /  (2.0  - »_min*v_min); 

eccentricity:-  sqrt((1.0  -  v_jmin*v_min*(2.0-vjnin**2.0)) 

*  (sin(gamma)**2.0)); 
mean_motion:-  sqrt(mu/(axis**3.0)); 
theta:  -  pi  -  phi; 

sin_of_E:-  sqrt(1.0  -  eccentricity*eccentricity)*sin(theta) 

/(1.0  +  eccentricity  *  cos(theta)); 
e:-  arcsin(sin_of_E); 

tau:-  (e  - eccentricity*sin_o£_E)/mean_motion; 
flight_time:-  2.0  •  pi  /  mean_motion  -  2.0*tau; 

All:-  cos(delta_l)  *  cos(omega) 

-  sin(delta_l)  *  cos(indination)  *  sin(omega); 
a12:-  cos(delta_l)  *  sin(omega) 

+  sin(delta_l)  *  cos(inclination)  *  cos(omega); 
a13:-  sin(delta_l)  *  sin(inclination); 
a21:-  -  sin(delta_l)  *  cos(omega) 

-  cos(delta_l)  •  cos(inclination)  *  sin(omega); 
a22:-  cos(delta_l)  *  cos(inclination)*  cos(omega) 

-  sin(delta_l)  *  sin(omega); 
a23:-  cos(delta_l)  *  sin(inclination); 
delta_t:-  PDL_duration_type(flight_nme  /  20.0); 
missile_eom:-  new_eqn_motion_rec; 
missile_eom.delta_t:-  delta_t; 
next_eom_rec:-  missile_eom; 

for  j  in  1..19  loop 

mean_anom:-  mean_motion*(float(j*integer(delta_t))  +  tau); 
Ecc_Anom:  -  mean_anom 
+  eccentricity  *  sin(mean_anom) 

+  eccentricity  *  eccentricity  *  sin(2.0*mean_anom)/2.0 
J-  (eccentricity  •*  3.0)/2.0 

*  sin(mean_anom)  **  2.0  *  cos(mean_anom) 

+  (eccentricity  **  4.0)/6.0 


40 

UNCLASSIFIED 


v, 

iv 


S',  'K 

£  M 


J 

£ 

& 


7* 

5? 


UNCLASSIFIED 


*  sin(mean_anom)  **  3.0  *  cos(mean_anom); 
cl:-  axis  *  (cos(Ecc_Anom)  -  eccentricity); 
c2:-  axis  *  sqrt(1.0  -  eccentricity  •  eccentricity) 

*  sin(Ecc_Anom); 

next_eom_rec.position.x:-  all'cl  +  a21*c2; 
next_eom_rec.position.y:-  al2*cl  +  a22*c2; 
next_eom_rec.position.2:-  al3*cl  +  a23*c2; 

If  j  <  19  then 

next_eom_rec.next_rec:-  new_eqn_motion_rec; 
next_eom_rec:-  next_eom_rec.next_rec; 
next_eom_rec.delta_t:-  delta_t; 

end  if; 
end  loop; 

missile_param:-  new  Russian_Missile_Platform_parameteri2ation; 
missile_param.id:-  "RMiss 
put(missile_param.id(6..7),missiie_num); 
if  current_debugjevel  >  50  then 
put(”(”);  put(platformJd);  put(”)”); 
put_line(”(RMBLAUN)  Launching  missile  now.”); 
end  if; 

Russian_Missile_PIatform_CP_pkg.create_platform( 
Russian_Missile_Platform_designator, 
par  am  ->  mijsile_param, 

initial_position  ->  init_pos, 
eqn_motion  ->  missile_eom, 

expected_lifetime-> 

PDU_duration_type(flight_time)); 
missile_num:—  missile_num  +  1; 
wait(0); 
end  loop; 

exception 

when  others  ->  put_line(”***Some  error  in  Russ JVfiss_Launch_TM_task***”) ; 


RUSSIAN_MISSILE_PLATFORM  • 


{platform  Russian_Missile_Platform:-Russian_Missile  is 
{subprocesses  Russian_Missile_TM:-  (id); 

{parameter  id:string(1..7):-  ("missile”); 

{subdata  PIatform_Msg,Event_Msg; 

{end; 

with  Platform_Collision_TM_pkg; 

{links  Russian_MissileJPlatform  is 

{begin 

intemaljlink(p!0. collisions, Russian_Missile_TM.part_in); 
intemal_link(P!G. events  ,Russian_Missile_TM.event_in); 
exclude_dyn_module(MYSELF, 

Platform_Collision_TM_pkg.Platform_Collision_TM_designator); 


exception 

when  others  ->  put_line(”***Some  error  in  Russ_Miss_PIat_jnit***”); 
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. RUSSIAN_MISSILE_TM  - 

$techiiolcgy_modu!-  Russian_\iissile_i  *  is 

$  inport  part_in:Platform_Msg, 
event_in:Event_Msg; 

{parameter  platform_id:string(1..7):-  (” - ”); 

$end; 

with  Vector_pkg,Vector_io; 

use  Vector_pkg,Vector_io; 

{task  Russian_Missile_TM  la 

use  Cones_n_Platforms.interface_procs; 
seconds:  constant:-  PDL_ticks_per_second; 
pos:  vector; 
which_port:  integer; 

{begin 

loop 

wait_for_activity((event_in.  Port, part_in.  Port)  ,which_port, 
StartTime  ->  0,Time_out->SECONDS); 

lfwhich_port-l  then 
consume(event_in) ; 
put(”(”);  put(platform_jd) ;  put(”)”); 
puUine(”(RMISSTM)  Now  I’m  dead  (R.I.P.)”); 
destroy_self; 

end  if; 

if  which_port-2  then 
consume(part_in) ; 
destroy_self; 

end  if; 

if  current_debugjevel  >  20  then 
put(”(");  pu t (pi at f orm_jd) ;  put(”)”); 
put("(RMISSTM)  position  update:  ”); 
pos:-  platform_position; 
put(pos); 
put(”  at  t  -  ”); 

put(Current_PDU_time,l);  put(”.”); 
newjine; 

end  if; 
end  loop; 

exception 

when  others  ->  write_process_full(MYSELF,"***Some  error  in 

{end; 
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7.  Technology  Modules 

The  following  contains  all  the  technology  modules  referenced  in  the  preceding  SAGEN 
code.  This  includes  the  KKV^Platform,  the  Communication  modules,  the  Sensor_Response 
module,  and  others. 


7.1.  KKV  Technology 

The  KKVs  are  launched  by  the  KKV_Weapon~TM  technology  module.  This  module  will 
launch  up  to  12  KKVs.  The  KKV^Platform  represents  a  projectile.  This  platform  contains  two 
technology  module.  The  Platform^CollisionJTM  determines  the  result  of  a  collision  and  the 
Tracker_TM  periodically  prints  the  location  of  the  KKV. 


. . KKV_WEAPON_TM 

with  KKV_Platform_pkg ; 

$techno!ogy_module  KKV_Weapon_TM  is 
{inport  target_in:Vector; 

{parameter  platform_id:string(1..7):-  ("—KKV—”); 

{end; 


with  Vector_lO; 
use  Vectorjo; 

{task  KKV_Weapon_TM  Is 

use  Cones_nJPlatforms.interface_procs,Cones_aJ,latforms.eqn_motion_pkg, 
KKV_Platform_pkg, KKV JPlatform_pkg. KKV JPlatfonn_CP_pkg; 
use  KKV_Platform_PARAM_pkg; 
km:  constant:-  PDU_lunits_per_kilometer; 
seconds:  constant:-  PDU_ticks_per_second; 
current_target:  Vector; 
kkvjjmit:  integer:-  12; 

kkv_param:  KKV_Platform_parameterization_ptr; 
kkvjd:  string(1..7):- "KKV-#-"; 
kkv_eotn:  eqn_motion_type; 
init_pos:  point_type; 
distance:  float; 

flight_time:  PDU_duration_type; 
temp:  float; 

{begin 

while  kkv_umit  >  0  loop 

wait_for_activity((l->target_in.Port),StartTime  ->  0); 
current_target :  -  port_data(t arget_in) ; 
consume(target_in) ; 
init_pos:-  platform_position; 
temp:-  length(init_pos); 
temp:-  (temp  -  1.01*KM)/temp; 
init_pos:-  init_pos  *  temp; 
distance:-  length(current_target  -  init_pos); 
flight_time :  -  PDL_duration_type(integer( 
distance  /  float(S  *  km  /  seconds) 

)); 

kkv_eom:-  new_eqn_motion_rec; 
kkv_eom. position:-  current_target; 
kkv_eom.delta_t:-  flight_time; 
kkv_eom.next_rec:-  null; 

kkv_param:-  new  KKV_Platform_parameterization; 
kkv_param. owner:-  platform_id; 
put(kkv_id(6..7),13  -  kxvjjmit); 
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kkv_param.id:-  kkv_id; 

KKV_Platform_CP_pkg.create_p)atfonD(KKV_P)atform_designator, 
par  am  ->  kkv_param, 

initial-position  ->  init_pos, 
eqn_j motion  ->  kkv_eom, 

expected-lifetime  ->  flight-time); 
kkv-UMIT:-  kxv-UMIt  - 1; 
wait(O); 
end  loop; 
loop 

wait_for_activity((l->target_in.Port),StartTime  ->  0); 

consume(target-in); 

wait(0); 

end  loop; 

exception 

when  others  ->  put_line(”***Some  error  in  KKV-Weapon_TM_task***”); 

Send; 


. KKVJPLATFORM_PKG . 

Splatform  tacv_Platform:-KXV  Is 

Sparameters  owner:string(1..7):-  (” - ”),  id:string(1..7):-  (”-KKV— "); 

Send; 

with  Sensor_Cone_Response_TM-pkg; 

Slinks  KKV_Platform  Is 
Sbegin 

exclude_dyn_module(MrsELF, 

Sensor-Cone_Response_TM_pkg.Sensor_Cone_Response_TM_designator); 


exception 

when  others  ->  put_line(”***Some  error  in  KKV-Plat-init***"); 

Send; 


. TRACKER_TM . 

$dynamic_tech— module  Tracker_TM:  -  TRACKER—TM  Is 

Send; 

with  Vector_pkg,Vector_jo; 

use  Vector_pkg,Vector_io; 

Stask  Tracker_TM  is 

use  Cones_n_Platforms.interface_procs; 
use  FLT—io; 
pos:  vector; 

Seconds:  constant:-  PDL_ticks_per_second; 

Sbegin 

loop 

wait(Seconds); 

if  current_debug_  level  >-0  then 
put("(");  write_process_fuH(MYSELF, end_ofJine->false); 
put("  current  position:  ”); 
pos:  -  platform-position; 
put(pos); 
put(”  at  t  -  ”); 
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7.2.  Communications  Technology 

The  communication  technology  is  used  to  send  and  receive  messages  via  SADMT  cones. 
The  Ground_Station-CommunicationJTM  transmits  orders  from  the  Command^Post  and 
receives  sensor  data  from  the  Sens  or _Plat forms. 


. GROUND_STATION_COMMUNICATION_TM 

$technology_ module  Ground— Station-Communication— TV  Is 
Sinport  cone_in:Cone_Msg, 
order_xmit :  Order ; 

Soutport  sensor_data_rcv:Track_Data ; 

Sparameter  platform_id:string(1..7):-  (" - ”); 

Scone  Order_ptr; 

Send; 

with  Track_Data_ptr_pkg; 

Stask  GroundjStation_Communication_TM  is 
use  Track_Data_ptr_p  kg ; 
current-order:  Order; 
o_ptr:  Order_ptr; 
wmsg:  Cone_Msg; 
sensor_dau.  Track-Data; 
d_ptr:  TrackJData_ptr; 
m_ptr:  PDU_magic_ptr; 

Sbegin 

o_ptr:-  new  Order; 
loop 

wait_for_activity((order_xmit.Port,cone_in.Port),StartTime  ->  0); 
if  Port_length(order_xmit)  /-  0  then 
current-order port-data(order-janit); 
consume(order_xmit); 
o_ptr.aU:-  current-order; 
wait(l); 

create_cone(Command-Transmission,  data  ->  o_ptr); 
elslf  Port_Jength(cone_in)  1-0  then 
wmsg:-  port-data(cone_jn); 
consutne(cone_in); 

If  wmsg.  designator  -  Sensor— Data_Transmission  then 
dLptr:-  cast_magic-ptr_into_track_data_ptr(wmsg.data); 
sensor-data:-  d_ptr.aU; 
wait(l); 

emit(sensor_data_xcv,  sensor_data); 

end  tr; 
end  ir; 

wait(0); 

end  loop; 

exception 

when  others  ->  put_line("***Some  error  in  Gnd_Stat_Com_TM_task***”); 

Send; 


The  Sensor_Satellite_CommunicationJTM  broadcasts  sensor  data  to  all  other  platforms, 
and  it  receives  orders  from  the  Command_Post  and  sensor  data  from  other  sensors. 
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. SENSOR_SATELLITE_COMMUNICATION_TM  — 

$lechnology_module  Sensor_Satellite_Communication_TM  is 
Sinport  cone_in:Cone_Msg, 

sensor_data_xmit:Track_Data; 

Soutport  order_rcv:  Order, 

sensor_data_rcv:Track_Data ; 

{parameter platformJd:string(1..7):-  (” - ”); 

Scone  Track_Data_ptr; 

Send; 

with  Order_ptr_pkg,  Track_Data_ptr_pkg; 

Stash  Sensor_Satellite_Communication_TM  is 
use  Order_ptr_pkg,  Track  Data  ptr  pkg; 
wmsg:  Cone_Msg; 
current_order:  Order; 
o_ptr:  Order_ptr; 
sensor_data:  TrackJData; 
d_ptr:  Track_Data_ptr; 
which_port:  integer; 

Sbegln 

d_ptr:-  new  Track_Data; 

loop 

wait_for_activity((sensor_data_xmit .  Port  ,cone_in .  Port) , which_port  ,StartTime  -  >  0); 
If  which_port-l  then 

sensor_data:  -  port_data(sensor_data_xmit) ; 

consume(sensor_data_xmit); 

d_ptr.all:-  sensor_data; 

wait(l); 

create_cone(Sensor_Data_Transmission,  data  ->  d_ptr); 
elslf  which_port  -  2  then 
wmsg:-  port_data(cone_jn); 
consume(cone_in) ; 

if  wmsg.  designator  -  CommandLTransmission  then 
o_ptr :  -  caa  t_magic_ptr Jnto_order_ptr(wmsg .  data) ; 
current_order:-  o_ptr.all; 
wait(l); 

emit(order_rcv,current_order); 
elslf  wmsg.  designator  -  Sensor_Data_Transmission  then 
d_ptr:-  cast_magic_ptr_into_track_data_ptr(wmsg.data); 
sensor_data:-  d_ptr.all; 
wait(l); 

emit(sensor_data_rcv,  sensor_data); 

end  if; 
end  If; 
wait(O); 
end  loop; 

exception 

when  others  ->  put_line(”***Some  error  in  S^nsor_Sat_Co^l_TM_task•,*”); 

Send; 
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The  Weapons_Platform_Communication_TM  receives  orders  from  the  Command^Post s 
and  target  information  form  the  Sensor_Platforms. 


- PLATFORM_COMMUNICATION_TM 

$technology_module  Weapons_Platform_Communication_TM  is 
{inport  cone_in:Cone_Msg; 

{outport  order_rcv:Order, 

sensor  data  rev.-Track  Data ; 

{parameter  platfonn_id:string(1..7):-  (” - ”); 

Send; 

with  Order_ptr_pkg,  Track_Data_ptr_pkg; 

{task  Weapons_Platform_Communication_TM  ts 
use  Order_ptr_pkg,  Track_Data_ptr_pkg; 
wmsg:  Cone_Msg; 
current_order:  Order; 
o_ptr:  Order_ptr; 
sensor_data:  Track_Data; 
d_ptr:  Track_Data_ptr; 

{begin 

loop 

wait_for_activity((l->cone_in.Port),StartTime  ->  0); 
wmsg:  -  port_data(cone_in); 
consume(cone_in); 

if  wmsg.designator  -  Command_Transmission  then 
o_ptr:-  cast_magic_ptrjnto_order_ptr(wmsg.data); 
current_order:-  o_ptr.ali; 
wait(t); 

emit(order_rcv,  current_order); 
elsif  wmsg. designator  -  Sensor_Data_Transmission  then 
d_ptr:  -  c  as  t_magic_ptr_into_track_data_ptr(  wmsg.  data); 
sensor_data:-  d_ptr.  all; 
wait(l); 

emit(sensor_data__rcv,  sensor_data); 

end  if; 

wait(0); 
end  loop; 

exception 

when  others  ->  put_]ine(”***Some  error  in  Platform_Com_TM_task***"); 

{end; 
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7.3.  Other  Technology  Modules 

The  Orbit-Equation_of_Motion_TM  is  a  stub  process.  Currently  this  process  acknowledge 
the  SADMT  Event _Msg\  however,  a  new  equation  of  motion  is  not  generated  by  this  TM. 


ORBIT  JEQUATION_OF_MOTION_TM 


$technology_module  Orbit_Equation_o£_Motion_TM  is 
Sinport  event_in:Event_Msg; 

{parameter  platform_jd:string(1..7):-  (” - ”); 

Send; 


Stask  Orbit_Equation_o£_Motion_TM  is 
emsg:  Event_Msg; 

Sbegin 

loop 

wait_for_actmty((l->event_in.Port),StartTime  «>  0); 
emsg:-  port_data(event_in) ; 
consume(event_in); 
if  emsg  -  end_o£_eqn__motion  then 
putjine(”(end-of-eqn-motion) . 
put_line(”  ”  & 

"  Computing  new  eqn-of-motion  now.”); 

else 

put_linc("(NOT  end-of-eqn-motion) .  ”); 

end  if; 

wait(O); 

end  loop; 

exception-, 

when  others-- >  putJine(”***Some  error  in  Orbit_Eqn_Mot_TM_task***"); 


The  Platform_DATA__TM  returns  information  concerning  physical  properties  of  the  plat¬ 
form.  This  includes  the  platforms  mass,  equation  of  motion,  speed,  and  so  on. 


PLATFORM_DATA_TM 


Stechnology .module  Platform_Data_TM  is 
Stnport  req_in:Platform_Data_Req; 

Soutport  data_out:Platform_Data; 

Sparameter  platform jd:string(l.. 7):-  (" - "); 

Send; 

with  Vector_pkg,Vector_jo; 
use  Vector_pkg,Vector_to; 

Stask  Platform_Data_TM  is 
use  Cones _n_PIatforms.interface_procs; 
use  R.T.JO; 

part_data:  Platform_Data; 
phys_block:  physical_stuff_block; 

Sbegin 

loop 

wait_for_activity((l->req_in.Port),StartTime  ->  0); 
consume(req  Jn) ; 
phys.block:-  get_physical_stuff; 
part. data, designator:  -  get_my_type; 
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part-data. mass:-  phys_block.mass; 
part-data.  eqn_motion:-  phys_bIock.eqn_ motion; 
part-data.  current-eqn_motion_segment:- 
phys_block.current_eqn_segment; 
part-data.  when_arrived-this_segment  :- 
phys-block.when_arrived_this_segment; 
part-data.  when_Ieaving-this_segment:- 
phys_block.when_leaving-this-Segment; 
part-data. position:  -  platform-position; 
part-data,  speed :  -  phys_block.  speedLthis_segment ; 
part-data,  velocity:- 

(phys_block.where_at-end-o£_segment  - 
phys_block.where_at_start-o£_segment)  / 
phys-block.deIta_t-this-segment; 
emit(data_out, part-data); 
wait(0); 
end  loop; 


exception 

when  others  ->  put_line("***Some  error  in  Platform— Info_TM_task'**”); 

Send; 


The  Sensor _Cone_Response__  TM  listens  to  all  beamings  and  ignores  all  but  the  Sensor_Cone 
beamings.  When  a  Sensor_Cone  beaming  is  detected,  this  TM  returns  a  Sensor _ Con e__Re flection 
to  the  platform  that  originated  the  Sensor _Cone. 


- SENSOR_CONEJRESPONSE_TM  — - 

$dynamic_tech_module  Sensor-Cone_Response_TM:-  SENSOR_CONE_RHSPONSE  Is 
$cone_inport  cone_in; 

Scone  Track_Data_rec_ptr; 

Send; 

with  Vector_lo,Sensor_Cone_pkg; 
with  Track_Data-rec_ptr_pkg; 
use  Vector-Io,Sensor_Cone_pkg; 

Stask  Sensor_Cone_Response_TM  is 
use  Cones_n_Platforms.interface_procs; 
wmsg:  Cone_Msg; 
part-data:  Track_Data_rec_ptr; 
eom:  eqn_motion_type; 

Sbegln 

part_data:-  new Track_Data_rec; 
part-data. next_rec:-  null; 

loop 

wait-for_activity((l->coneJn.Port),StartTime  ->  0); 
wmsg:  -  port_data(cone_in); 
consume(cone_in) ; 

if  wmsg. designator  -  Sensor_Cone  then 
part-data. position:-  platform_position; 

eom:-  null; 

part-data. velocity:  -  (0.0, 0.0, 0.0); 

create-Cone(Sensor_ConeJReflection, 

RetAddr  ->  wmsg.initiator_id, 
data  ->  part-data); 

end  ir; 
wait(0); 

end  loop; 
exception 
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when  others  ->  write_process_full(MYSELF,”*,*Some  error  in 

Send; 

The  Sensor.DeviceJTM  waits  for  a  signal  to  arrive  on  its  sense^cmd  port.  When  the  signal 
arrives,  it  transmits  a  Sensor_Cone  and  wait  for  echos.  As  the  echos  are  received,  a  track  file  is 
constructed.  After  all  of  the  echos  have  been  received,  the  track  file  is  passed  over  the  outport 
to  the  sensor  platform. 


. SENSOR_DEVICE_TM 

$technology_module  SensorJDevice_TM  is 
Sinport  cone_in:Cone_Msg, 
sense_cmd:Sense_Req; 

Soutport  sensor_data:Track_Data; 

{parameter  platformJd:string(1..7):-  (” - ”); 

Scone  Sense  JReq_ptr; 

Send; 

with  Vector_lo,Trach_Data_rec_ptr_phg,Sensor_Cone_pkg; 
use  Vector_Io,Track_Data_rec_ptr_pkg,Sensor_Cone_phg; 

Stash  Sensor_Device_TM  is 
use  Cones_nJPlatforms.interface_procs; 
use  flt_io; 
cmd:  Sense_Req; 
wmsg:  Cone_Msg; 
data:  Track_Data_rec; 
trachjnfo:  Track_Data; 
new_node:  Track_Datajec_ptr:-  null; 

Sbegln 

loop 

if  Port_length(sense_cmd)  -  0  and  then 
Port_iength(coneJn  )  -  0  then 
wait_for_activity; 

el8if  PortJength(cone  Jn)  /-  0  then 
consume(cone_in); 

else 

cmd:-  port_data(sense_cmd); 
consume(sense_cmd) ; 
create_cone(Sensor_Cone,  cone->cmd); 
wait(l); 

trachjnfo.  trachjist:-  null; 
trachjnfo. number_o£_targets:-  0; 
while  Portjength(conejn)  /-  0  loop 
wmsg:-  port_data(cone_in); 
consume(cone_in) ; 

if  wmsg. designator  -  Sensor_Cone_Reflection  then 
new_node:-  cast_magic_p;rJnto_trach_data_rec_ptr( 
wmsg. data); 
data:-  new_node.all; 
new_node:-  new_track_data_rec; 
new_node.all:-  data; 

new_node . next_rec :  -  trachjnfo .  trackjist ; 
trachjnfo.  trachjist:-  new_node; 
trachjnfo .  number_of_targets :  - 
trachjnfo. number_ot_targets  +  1; 
wait(l); 
end  loop; 

emit(sensor_data,  trachjnfo); 
if  trachjnfo. number_of_targets  -  0  then 
if  current_debugjevel  >  60  then 
put("(”);  put(platformjd);  put(”)"); 
put("(SENSORD)  No  targets;  killing  of  platform  now."); 
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end  if; 
destroy_self; 
end  if; 
end  if; 
wait(O); 
end  loop; 

exception 

when  others  ->  put_Jine(”***Some  error  in  Sensor_Device_TM***”); 


The  Platform^ Collision^ T M  is  simple.  This  TM  destroys  the  host  platform  as  soon  as  a 
collision  is  detected. 


PLATFORM_COLLISION_TM 


$dynamic_tech_module  Platform_Collision_TM:  -  P latfo r.m_c o lusi o n_tm  is 
$piatform_inport  part_jn; 

Send; 

with  Vector_pkg,Vector_jo; 
use  Vector_pkg,Vector_IO; 

{task  Plat£orm_Collision_TM  is 
use  Cones_n_Platforms.interface_procs; 
pos:  vector; 

Sbegln 

loop 

wait_for_activity((l“>part_in.Port),StartTime  ->  0); 
consume(part_in); 

write_process_full(MYSEL?,”(”,")",false); 
puUine(”(PARTCOL)  Now  I’m  dead  (R.I.P.)”); 
destroy^ self; 
wait(0); 

end  loop; 
exception 

when  others  ->  write_process_full(MYSEUr,”*'*Some  error  in 

Send; 
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